home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SHELREAD.M < prev    next >
Encoding:
Text File  |  1989-09-09  |  895 b   |  37 lines
  1. MODULE SHELREAD;
  2.  
  3. (* Testet ShellRead-Funktion *)
  4.  
  5. (*$E MOS *)
  6. IMPORT TOSIO;
  7. FROM InOut IMPORT WriteString, Write, WriteLn, WriteCard, Read, ReadString,
  8.         WriteHex;
  9. IMPORT GEMEnv, AESMisc, Directory;
  10.  
  11. VAR s,s2: ARRAY [0..255] OF CHAR;
  12.   handle: GEMEnv.DeviceHandle;
  13.   ok: BOOLEAN;
  14.  
  15. PROCEDURE rd;
  16.   BEGIN
  17.     WriteString ('Current path: '); WriteString (Directory.DefaultPath()); WriteLn;
  18.     AESMisc.ShellRead (s, s2);
  19.     WriteString ('Cmd : '); WriteString (s); WriteLn;
  20.     WriteString ('Tail: '); WriteString (s2); WriteLn;
  21.   END rd;
  22.   
  23. VAR ch: CHAR;
  24.  
  25. BEGIN
  26.   GEMEnv.InitGem (GEMEnv.RC, handle, ok);
  27.   
  28.   rd;
  29.   
  30.   WriteString ('ShellWrite (leaveAES, gemAppl, "BLA") -> should be ignored'); WriteLn;
  31.   
  32.   AESMisc.ShellWrite (AESMisc.leaveAES, AESMisc.graphicPrgm,
  33.                       AESMisc.gemAppl, 'Bla', 'blu');
  34.   rd;
  35.   Read (ch)
  36. END SHELREAD.
  37.